﻿
Namespace ReplyMsg
    Public Class ReplyMusicMsg
        Inherits ReplyBaseMsg

        Public Overrides ReadOnly Property MsgType() As String
            Get
                Return "music"
            End Get
        End Property

        Public Property Description() As String

        Public Property MusicURL() As String

        Public Property HQMusicUrl() As String


        Protected Overrides Function GetXMLPart() As String
            Return "<Music><Description><![CDATA[" + Description + "]]></Description><MusicUrl><![CDATA[" + MusicURL + "]]></MusicUrl><HQMusicUrl><![CDATA[" + HQMusicUrl + "]]></HQMusicUrl></Music>"
        End Function
    End Class
End Namespace
